LABEL 000000000PRIMEH00175100CC tx OBJECT /RE AD ; FILE SOUHCEF IlE=5YMBUL/U$EH; END* 



QBjECT /READ 



3 




(IS ii L 



l'° 

I 11 

1? 

13 
14 

15 

16 

I 

17 

|1B_ 

19 

\w 

21 
22 
2J 

2*1 
2S 

■m 

27 
28 
29 
30 

31 
32 



H 

|Sb| 

aiii 

37| 

joJ 

1- 
4, 

<;. 

43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
S3 
>4 
55 
S6 



********************************************** **************************oqqiooOG 



8 

H 

'ID 

1 ' 

U 
,13 
14 
'') 
In 
■7 

ie 

us 

bo 

21 

\ii 
23 

t- 

26 
27 
28 

29 

30 
31 
32 
33 

34 ' 

r\ 
E- 

f38 

WO 

141 



44 
45 
4« 
47 
48 
4S 
50 
51 
[>/ 
5.1 
54 
56 
56 



% 



USER/CANDE SOURCE FILE 12-70, 
COMMENT.: * JJJJLEJ- B"550Q/S57QQ MARK XI V_SJt£T_Ltt,_i_E-»i___E, 

* FILE 101 SYMBOL/USER TAPE lot S YM60L2/F ILEOOO 

* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION 
... * A__D.__S_____ TO RE R E PRODUCFD, llSF n. OR nTSriflSFD 



EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 
WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF 
B.UBAQJJAhS_iDJiPiiaAl-LQjeU. DETROIT, MIChlGAN 4823? 



* 
* 



COPYRIGHT 
-AA22Q20A- 



(C) 1971, 1972 
ULl&ixA Sl 



BURROUGHS CORPORATION 



XQOl-00010100 
.*- 00-010 HO 

* 00010111 

* OQCUC-112 

-*.. 00010113 

* 00010114 

* 00010115 
.*... fiO.0AQ.il 6 

* 00010H7 

* 00010H8 
Jj 0&Q.l_44-9_ 



X************* ************** ************************************ ********000l0200 
COMMENT X001-000103GO 

JHJA-.P.RQARAM.,,.Cj.£AIELS_.JiiL_FlLE w USERS/CANP£J-B.HaxaLjLS. USED BY -tuii-nQO^nn 

CANDE/TSHARER TO OBTAIN THE SECURITY AND ACCOUNTING INFORMATION »001 -00010500 
ASSOCIATED WITH EACH USER, X001-00010600 

THE FILE IS. COMPRlSED-flF. THREE _£C.Il.U.N._i _0_i-nno l 07nn 



A) 



B) 



SEGMENT ZERO, WHICH CONTAINS THE RECORD COUNT AND DATE OF 
LAST ALTERATION OF THE FILE. THE NEXT AVAILABLE SEGMENT 
P.Q.SJ II QJsL iJLJ_E_I „.ija, i*Ofi Q...i_.flF ;.,^s E G M E N 1 -JLEJiiLt.jML-UiLJh 
LAST ALTERATION IS K^PT IN WORD 2 OF SEGMENT ZERO. 
THE INITIAL SCRAMBLE TABLE SECTION, LOCATED IN SEGMENTS 
1_T HR U !____ _S_JL_-J_ttE_F__L£_i £ACji _1C R AM.&LE. _S F6MFNT £ Q_§_ISJJ 



XOOl-00010800 
X001-00010900 

_L_aasLUja_._, 
xooi-oooiiioo 

X0O1-000U2OO 



OF 15 TWO WORD ENTRIES, THE MRS] WQKD CONTAINING THE USERCQDE 00011400 
AND THE [33S15] FIELD Of THE SECOND wORD CONTAINING THE *001-QQ0l 1500 
R.ELAJ.LV.L...D I lK._AQfiR£SS . _QF _ I H£_. SXCkRlLY S E li M £ NJ ASS QCIAT La _ JS 0.0 1 - 00 X 1 600 
WITH THAT USERCODE, THE C18llbJ FIELD UF WORD 1 OF EACH 1001-00011700 
SCRAMBLE SEGMENT IS A L I N K TO THE NEXT SCHAMBLE SEGMENT. XQ01-OOQ1 1600 
WHEN AN ATT EMPT IS MADE TO ADD A NEW USERCODE TO THE SCRAMBLE nnollonn 

FULL* THE USER CANDE 0C012000 

IN tHE USERS/CANOE *001 -00012 100 

-kXNKED BLOCK IN THFSQ01-QQ0 1??0J_ 



BLOCK SECTION, AND THAT BLOCK IS ALREADY 
PROGRAM WILL CREATE A NEw SCRAMBLE BlQCK 
FILE, _Nn WILL PLATF THF LOr.flTTOiv OF THF 



[18»15] FIELD OF WORD 1 OF THE CURRENTLY ACCESSED BLOCK. 
THE C18I15] FIELD OF WOR D 29 Of EACH LINKED SCRAMBLE BLOCK 
USED AS A BAC K LINK T O THE PRE VIOUS SCRAMBLE BLOCK FOR 



C) 



OF FILE MAINTENANCE, 

OF THE USERS/CANOE FILE, 

TH IS SECTION OF THE FlLF. 



X001-00012300 
IS 00012400 
_3LQ 01-0 00125.00. 



*001-00012600 
LOCATED IN SEGMENTS 30 ANDX001-00012700 
IS COM PRISED OF BOTH LINKED OO0l2rtOn 



PURPOSES 

THE BODY 

JEY.OND..... 

SCRAMBLE BLOCKS AND INDIVIDUAL USERS SECURITY RECORDS, X001-0QQ 12900 
WORD 29 OF EACH SECURITY RECORD CONTAINS A BACK LINK TO THE XOOi-00013000 

.LQR_AMBk£-B.Ufl£J<_WHlCti POINTS TO THAT RECORU. THE E33U5J FIELD 00013100 

OF WORD 29 POINTS TO THE RELATIVE DISK ADDRESS OF THE SCRAMBLE 00013200 
BLOCK, AND THE [18:15] FIELD POINTS TO THL WORD LOCATION OF *Q0 1-000 1 3300 

THE USE R CO DE WITHIN [HE SCRAMBLE BLOCK . X001 - OOP 134 00 

IS USED TOXOOl"-000 13500 
BLOCK, OR X001-00013600 
THE SEGMENT 00 1370 



THE SIGN BIT OF WORD 29 OF EACH OF THESE SEGMENTS 
INDICATE WHETHER THE SEGMENT IS A LlNKEO SCRAMBLE 

A USER S SECURITY REC O RD. THE SIG N BIT IS ON WHEN 

IS A SCRAMBLE BLOCK' AND IT IS OFF WHEN THE SEGMENT IS A 
USERS SECURITY RECORD. 



THE PROCEDURES 

CREATING AND V OR ALTERING 

SECTIONS OF THE FILE. 

end comment; 



'READUSER" AND "REMUVEUSER" AR E RESPONSIBLE FOR 



THE LINKS ASSOCIATED WITH THE VARIOUS 



X001-00013800 
X001-00013900 
X001-00014000 



BEGIN REAL 

FILE USERS DISK RANDOM "USERS""CAnDL" (1,30); 

FILE CARD _ 

FILE LINEl**27T5TT 

FILE DSK DISK SERIAL t20t30J (2,30»300)J 

ARRA Y TABLF,usrR,nBTTnMSfnnm i 



COMMON; 
DISK RANDOM 



XQQl-00014100 
X001-00014200 
X 00 1 -O OP 1 410JL 




% SCRATCH FILE FOR SORT 



X001-00014400 
X001-00014500 
-001-00014600 
X001-00014700 
X001-00014800 
1001-00014900 




ft 



7 

8 I 
9 
10 



17 i 
18 



22 



24 
25 



27 
28 



30 



33 
34 
35 ( 
36 

37 



47 < 
48 
49 
50 ( 



55 
57 



m • 



Vr 



in I 
In, 



'»- 



116 
17 
18 

I 19 " 

v 

23, 
24, 



6 

o 
Q 

a 

to i 
Q 



'26 

; 27 _ 

28 
29 

1 32 
33 



:n\ 

\w 
I:v9 

40 
111 

43 
44 
45 
46 
47 
48 
49 
50 
51 



52 
53 
54 
55 

56 



ARHAY CMPSC0«ll]#VRBS[0»60j; 
SAVE ARRAY ACO U6 ] ,B CC I b ] ; 
-1NJ E.GER-....IABL EL-QO. U&BXUJXtAEXRj Afli_ 
REAL USERCQDE,USERLOC,WORd; 

real i,k,nextopen,count*tcount; 



XOO1-0001SO00 
*001-00015100 
iiiair-..QXL0jL52I}^ 
X0O1-O0015300 
X0Q1-00Q15400 



sw^tsetsss^^ 



LABEL NEXT, EOF, COMPILERS, VERBS; 
SWITCH FORMAT FM :» 

X.*!EH.R|.aAD 4. .CAiUU-'U*. _... 

("ERR'S NEW MUST BE FIRST CARD,")* 
("ERR'QUOTES REQD AROUND PARAMETERS."), 

U»£ARlUMKNnJ4A_.0FJHnN..JJL_LHl£ SLARQ , " U 

("ERRS UNRECOGNIZABLE COMPILER NAME"}, 
("ERR! UNRECOGNIZABLE VERB NAME ")', 



UEU.NE. 

DEFINE 

DEFINE 

.MLlNE 



DEFINE 

DEFINE 

..QEJQML 



-LXElAfl&CJa s " «- "JU 

NUMOFCOMPILERS * 11*; 
NUMOFVERBS * 49*; 

iiiLE.Rj4ii.ftn * uSERtnu 

PASSWORD e USERL2J#; 
CHARGEWCRU = USERC3]#; 



DEFINE 
DEFINE 
UElllNE. 
DEFINE 
DEFINE 
...CLEI1NE 
DEFINE 
DEFINE 



U.S-ER_NAJ1E_. .. !SL_JUlEJiajli__i_AJiD J?..,. 



PHONEWORD 
TIMEWORD 

JtflMP.lL£fiMIlfla 

VEtfBWURp 

OPTlONBlTS 

.Mfi6lI.IliBAA._ME_ 

LINKWORC 



■ USERC6]*; 
* USERC7]#; 
-USER [B___LL 



XUOl-OOOlbbOO 
X0Q1-00015700 

*OOts- 0-0.04 .5 8 0-0- 

X001-00G15900 
XOOl-00016000 

JUUU-J_a_U4_Qfl_.. 
X001-000i6200 
%00l-000i6300 

-laoiaQflfliAAaa. 

X001-00Q16500 
00016600 

X001-00016800 
X001-00016900 

XOOl-00017100 
X001-00017200 
JLOQliflaQlZlOfl 

*Q01-O00l7i»00 

SOO1-O0O175O0 
X0_q.i-O00_l 7 6.0 

X001-00017700 
%001-000i7800 



= USERL9]*; % aNO bS£H[i03 

= US£R[ll3#; % SeI/KeSeT OPTIONS 

* USEJLL12J.U... 1 .m QH I LQ.R _£ 1LX _N_AJiE 

* USERC29J»; 
MATCH(MATCHl/MATCH2)s i0C 

■-- T ^F.REA.L^ » XLQ0179.0C 

STREAM *PR Jc%*n ,%%* *"***"*"******************"************ * * *T * * *T^7* ^000 8000 

STREAM PROCEDURE M0VE(N#A,8); VALUE N; mni.nnn u.n« 

— -BEfil-N SilMJLDXi=llJP.iL-J» -OS^tNOi _____ __ __ KSHoSS SjSg 

BEGIN LABEL MAP, EXIT; " " "" —" " ~ - -f^f^nFiifnn- 

FDRMAT NUM0FU5ERSCI6," USERS lH u^ER./CANDE FILE"//), JSoi-oSowOO 

usersrecordscx53,«***lsers recqros***^ f ; ~" " - "ioohooo'xefao 

***************** ******************************************** ******** Qn oiQnnn 

STREAM . PROCEDURE Ia&LEMARLLA&LLaLII. ___ Ittfll^QOl??oS 

******!************************************^^ 
S1J.-IABLE; DO..*; SgSJZSSS J2?22 

i5CDS«»eLlT" ■■-i-sT^sT^rtT^TiET^^ Then %■ - 

~ END STREAM PROC EDURE TAB UM A~p7 " " ' ~~ ~~XOoi^0001 9800 

********************************************* ******* - *****»*^ ## ^^ ###00(} 

S-IM.A^^^ _ _ JSoi-00020000 

X************* ****** ************** a******************/*, ******^ ********Q^o2oTnn" 
BEGIN LOCAL S V 1 ,SV 2 ,Z, Y,X ; *001-0002oi22 

S :=USER; H'SI.9; dji.a, DS: = 7CHR;1^^Tr"-T^r-usTRT0-DE-(U 
S Zl.S 1*1* DSI»7 CHR; 0SS=LIT" -J * PA.SwGHU ( 2 ) XOO 1-00020S00 
Sn-SI+i; DSSS? ChR; DS ,» LIT " "; % CHARGEWURO C3) OOO^ObOO 



*1 



Sll«SI + i; 0SJ«15CHR; 0S:«L1T M "; X USERNAME "(«) "(5) 

?i!"f +i; 5 SM7 CHR ' DS,S LIT" -; * PHONEWORD (6) X001-00020800 

■ SL»"»JtAl_2iII£. 5B THEN PS »^klI_.l. w _JELSE_DS I »LlT w 0"; SK _ P SB)I»001-0002 0QOO 



(1) 

xoor 

X001-00020600 
X 001 -00020 700 
X001-00020800 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17* 
18 
19 
20 I 
21 
22 
23 ( 
24 
25 
26 4 

-J 27 
28 

29 { 

30 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 i 

39 

40 

,i 

42 

43 

44 % 

45 



I 
I 



i 

t 



47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57, 



m 



10 

v> 

13. 



la 
Il7 
IS 
)3 
'I'j 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
p4 
35 
X 
37 ~ 
36 
39 
40 
All 
42 
43 
44 
46 
46 
47 
48 
«» 
50 
51 
62 
53 

S5 
56 
57 



DSJ=LI 
SKIP S 

NUMflf.C 

dh»sv 

NUMOFC 
IF S.C* 

BEG 

Si: 
. LHii 
ELSE 

BEG 
_ . . SJJ 

END 
SllaSV 
END ST 



t m ••; x timeworu (.n 

b; s vi t =d i ; dii«loc x; * languagekuh 

.OMP_lL£_^a..UF....^fi....TJi£LN D_SJ_=L.LII , X'! £t_&E__ 

II SU«CMpS; SllaSI+fJ SV2»»Si; sin 
OMPlLERSCSVllsSi; 

"1" I.HEN.....X R.ES.IRI.CT.LQ CMELLLXB 

IN 

=sv2;ds» 



loc x; 



IN 
■SV2i 



XQ01- 
51001- 

•1 a w i._..5 kxp. sb) ; 

XQ01« 

xooi* 

Iflfli.; 

XOOI- 

CHK;Si:=Si + 4;oij« = 2CHR;DS: s LIT" ";Sp = si + i;SV2«*Si; 

-._ _ -XOU-L.- 

XOOI" 
XQOt- 
X Q01« 



simsi+a; sv2>ssi> 



00021000 

000<;iiOO 

mia.il2.Oi3 

00021300 

00021400 

■.ftOa2.L5iJ.ij... 

00021600 

00021700 

D.0-U2-1B.00- 

00021900 

00022000 

Jiflfl22jJUL 



i; si i »s 

REAM PRO 



i + d; 

CEDUHE REFUKMi; 



X****** 

BOOLEAN 

X****** 

BEG I 

DI »* 

S I » a 

20(1 

Sl«« 

.20 CS 

IF S 

B 

S 

E 

ELSE 
B 



**************************** 



X001-OQ022200 
54001-00022300 
*001-OQ02240C 



********** 



t *************************** * 
. „ _^._._^.__^ 

.y "; si :=a; osj=14wOs; x bl 
skip s b; s kip skp .sal jdx .?.= l.P 

DS*»LiT H i w ELSE US»»LIT"0"; 

DI 

% RESTRICTED VtN8 



******** 

rbs,skp); value 
**************** 



ANK "A" 
C__Xj 



********** 

STREAM PROCEDURE REFQRM2 ( VERBWORD* A» V 
* * * * * ***** 
N LOCAL Tv 
a; DSl«8LI 
VERBWQRq; 
F SB THEN . w ... . . „_„_ _ w _. . - 

vrbsj sn s Sj+9; sv2i*si; .sh«lqc x; 

viraSju _.. 

C»"l" THEN 
EGIN 

IJ..T S V 2 1 J) S. i. =.5.C H JLf SHssI + 3; DS:*LIT" "i Sv?: = SU _J_A kkl 

ND 

EGIN 



****** **0Q022500 
SkPJ 00022600 

******* * 0n0227 00 



X001-00022800 
X001-00022900 

jLimuifliifiiaaao. 



SKIP 

isa; 



SI»=SV2i SII=SI+8; SV2i*SU 

end; 
-Sj-Lgsv i ; _sjul&&j.+ i ) ; 



SB); % DECODE 3(001*00023100 
X001-00023200 

- jtaaiAO-ofl.23.3-ax) 

XUC1-CC0234C0 
X001-0QQ23500 

i.=ii- ao-O.4U.6-Qa . 

X001-0002370Q 
X001-00023800 

. xooi - ooo iisaa. 



REFOR 
END S 

X ******* 

boolean procedure 

St**************** 

IF . N QI. C lNPUT» «(COLNT:gCQUNTtn jTr'TCUUn T) T 

BEGIN 

IF (U 

._.„££. 



IM2isTALL¥ 
iTREAM PRO 

********* 



XOOl-00024000 

X001-0QQ2410Q 

■X001-000?4200 



CEDURE REF0RM2* 

♦*»**•»•*****•*********•** ** 

in p u tT a ) ; a r r a y a c o ] ; %' sTr 

**************************** 



*****_*_* 
t "Input 
******* 



********* 



xoo 

XOO 
****** 



1-00024300 

1-00024400 
**0O0iA5fi.a. 



ROUTINE 
********* 



xoo 

****** 

xoo 



1-00024600 
**00024700 
1-000248 00 



SRlNDXJ*USRINDX+2) GTR 28 THEN X GET ANUTHER SEGMENT 

GIN , 



X001-00024900 
X001-00025000 
XOQ1-O0025in0 



RE 

US 

EN 

MOV EC 
END 

XLSX-- 

BEGIN 
REWIN 
END P 



i»USER[*] ); 
c; 



AD(DSK,30j 

RINDX 

DI - 

2#USERCUSRINDX]#AC03 )J X TRANSFER 2 WDS FROM SEGMENT 



X001-00025200 
X001-00025300 
ADOl- 00025.4.00 
XOOl-00025500 
X001-00025600 
XOOI -00025700 



DCDSK); USRINDXJs-21 
ROCFDURE, 



XOO 
XOO 
XOO 



1-00025800 
1-00025900 
1-00026J 



'OOP 



x**************** 



* * * * * * * 
AY AC01 
*■■* ***** 



r ***** * * * ******************** 

PROCEDURE OUTPTCBfA); VALUE B; BUUlEAN B; ARR 
X*** ********** * ******* *** ******* * * * ***** * * *** 
IF B THEN X LAST RECORD 
BEGIN 
. HHlT.ECaSK#30#baERt*3 3J X WRITL REMA1NULR uF SEGMENT 

rewindcdsk); 

END 
_£LSJL._^ , 



********* 

; X SORT 

********* 



****** 
OUTPUT 

****** 



**00026l00 
00026200 
1*00026 300. 



X001-00026400 
X001-00026500 
X001-00026600 
X001-00026700 
XOOl-00026800 
X001-0002690 



• • 



s, 



V 

,> 

11 
12 



13 
14 

IB 

10 

17 

18 

19 

20 

21 

22 

23 

24 

25 ~ 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

3b 

■38 

3?~ 



M 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
67 



BEGIN 

IF CUSRINDX:*USRINDX+2) iiTH 2d THEN * WRITE ANOTHER SEGMENT 

...... .H£fi.LN _ ... _.. 

WRITE(OSK#30#USERC*3); 

USRINDX 1* OJ 

EMDi.. 



M0V£(8#At03#USERCUSRINDXJ >> % TRANSFER 2 "wosTo SEGMENT 

END PROCEDURE; 
% * * * * * ************************ 



*001-0002700G 
X0U1-00027100 

.. ,-Q.Olr.QjlQ. Z2C.Q. 
X001-00027300 
XQO1-O0Q27400 

. »Q0X»00Q_7-_fl_Q 
X001-0Q0276Q0 
X001-Q0027700 



..**_* ***_**_*****************_* *_*.** * * * * *** **J2JQQ_ j£7.flQQ 

BOOLEAN STREAM P8CCEDURE CMP(*,B)i * ~S(Jht" cbM'PAR"l"'SiON~ lOOI -000 27900 

X********************************************************************oo028000 
BEfiJJil >UQ !-_______ 



.AEfiJU. 

sijsa; sii=si+i; 011*3; qi:=di+i* 

IF 7SC LEQ DC THEN TALLYl»i; 

jlh&jjjally; 

END STREAM PROCEDURE CMP* 



XU01-00028200 
XOOl-00028300 

JuiuJLrj______L. 

X001-000285Q0 



:********************************************************************QQQ28600 

,„„. r.u o Bn »rn..r.r „,_„.. „,. .,««,» 4 *,_,. ,.„„„. „..„.. „.. „1__L-Qflfl ___}._. 



***#*«*********************************************•********, 

BOO LI.A N... PRQ ____ E £0 MP(A # B)J ...A R RAY___ l 10. LI _C .QHP t , CH PC A«8 3* 

X**********************************************************t 
PROCEDURE HIVALUECA); ARRAY ACOJi A t 03 « =3" Ul 4l 4UUU" * 

________________________ x j. j. j. x x 4. j. j. i _ j. _ .*. _ _l .l. ... j. _ j_ . . .j . _. _ . ... ^ . . * . < 4 ± 



r**********00028800 
PROCEDURE HIVALUECA)/ ARRAY AC J ; A t J » =3" Ul 4l 4UUU" ; 00028900 

..***** .********** ***** *** *** * * ***»***••*•** ****** ****** * ***** * » » * *****0002900Q 

tcount *»' oi'usRiNDx i"» -2; T»«tTmec~5 ) ; ~~" ~ ~ ~ " 

i i* M o/oo/oo M & ni»i3un 

tfRJ.I.I.CL.lNE,IA_BLIMA_PP^_n; _^ ____ 

FOR TA8LEL0C »■ 1 STEP 1 UNTIL 29 DO * GF.T Sc^AMdLE SEGMENTS 
BEGIN 



& IC18I24M2J & 
WRIT £(L1NE CDBL3)I 



I C 36? 36* 123 ; 



X001-00029100 
I0O1-000Z9U0 
%Q 01-OQ 029200 



MAPI 



REAO.CUSERSLJAaLELUC i_3Q_U»ilJ_;_ __L 

TA8LEMAP(TABLE#A); * PRINT SCRAMBLE TABLE CONTENTS 
WRITE(LINEM5*At*J); 
J___ 11 *Q..S.l£P_2._UM.li....2a...0iL_LE -lABl&jXMLQULlMZH-JL^JUUD. 

BEGIN 

TCOUNT 1= TCCUNT + l; * COUNT THIS 



X001-00029300 

X0U1-00029400 

_ .. XQ01-Q00295QQ 

X001-00029600 
X001-00029700 

.user an&zs&nxL 



IF- __a_I_flX > 5 U SBlN.nXl2i_G.ILl 

BEGIN 



_2__ 



USERCOQE 
J_J__._.„__XE, 



X001-0002990Q 
X0OJ-0QO3O000 
OUT THIS SEGMENT OQ_10lO_0.. 



WRITE(DSK,30,uSERC*J); 

u sri ndx j* q)_ _ 
end; 



IF 



MOVE ( 2# TABLE [I 3 # USER [USRINDX] ); 

.im i..xa.QPi 



% TRANSFER TO USER ARRAY 
GTR THEN - *"" LINK" TO~N ExT S E G ME ST" 



CI l"TABLEt 13,C ISHsi) 

BEGIN 
8£ADliJ5£fi_tJJ_3__r.ABLfcj; till _...fi_AD. LINKED SEGMENT 

GO TO map; 

END; % IF LINKED SEGMENT 
WRITECLINE); % SPACE BETWEEN LINKED SE GM E N T S 



X001-00030200 
XOOi-00030300 
._lfiflJiflflflJ.fi._3Q.. 
X001-00030500 
X001-00030600 
■_JJ.l?0O0-__!__ 



xoor 

X001' 
JLflOJ_- 



00030800 

'00030900 
.OilfllI___ 



END TABLELOC LOOP; 
WRITE(DSK#30»USERC*3); 



X001-00031100 
1001-00031200 
XQ01-0003130Q 



..„.„,.., -...,__-. ... WRITE REMAINDER OF SEGMENT 

HRITECLI Nl,, NUMQ FUSERS^ TCQUNT )', 
REWIND(DSK); COUNT J* o* USRIND 



SET UP FOR SORT 



)x «= -2; 

IF TCOUNTsO THEN GO TO EXIT; % EMPTY FILE 

SORTCOUTPT*INPUT/0»HIVAL U C p C QNP>2* 4000); 

COUNT I* O; 

WRITECLINECPAGE3); WRI TEC LI NECDBL 3 ); WRI TEC Li NE# uSERSRECORDS) ; 
J" HIE E_ COUN T LSS TCOUNT 08 



X001 
X001 
»00 1 



•00031400 
'00031500 
'000316 00 



BEGIN 

READCDSK*30,USERt*3); % 
FOR I»*0 STEP 2 WHILE I 



READ NEXT SEGMENT 

LSS 29 AND CUUNT 10S TCOUNT DO 



BEGIN 



% 00 1-000 3 1700" 
X001-000318Q0 
___1_00__1900_ 
X001-Q0032000 
XOOt-00032100 
XO01*O003220 
X001-00032300 
X001"00032*400 
%Q01-0QQ 32500 



P E- X* A IN 

REAO(USERSCUSERCl+13.C33ll5 3],30 f TABLEC*3>; 
REFORM ____j____Q_P5i; WRITE(LIN E»15*AC*3); 



* GET USERS 



X001< 
SGHlMT 
X001' 



•00032600 

00032700 

'00032600 



12 
13 
14i 



Jr 



17| 

18 
- 

:>n 
21 

22 
?3 
24 
Z5 
26 
27 
28 
29 
30 
31 
32 
33 
34 

37 ~ 

38 

39 

40 

141 

r 2 _ 

43 
44 
45 
46 
47 
48 
43 
50 
61 
52 
53 
54 
55 
56 
57 



IF REFGKM2(TABLE[9]#A*V«BSLC0]* 0) 
IF REFORM2(TABLr.[9]#A'VRBSL^O]»20) 
IF RE.F0RM2C.TABLEt9j#A»vRR_SL«0]#«0) 
WRITECLINECDBLJ); 
COUNT «* COUNT + i; 

end i loop; 

ENO COUNT LOOP; 

SECDSK); WRITEC1.INECPAQEJJJ 
PROCEDURE PRINT; 



THEN 

THEN 

THEN 



WHITE(LINE*15# 
WRITECLINE' 15» 
WRITE C LI N_>_1' 



AC*J)J 00032900 
AC*3); 00033000 

A.C *3)J .Qp_03 3 1 

*0Oi-o66332O0 
XOO1-Q0033300 

___Q______U._.__»i_ 



EXITI 

_L.Q 
ENO 

X * * ■■* * * 

.SlR£A»i_.ER13i;i.BUB£_fiLAMiAAllli „_J.____£__U_ 

X************************************************************** 
BEGIN 

QLL=Ai OS 8 = 8 LIT w n J bi;aA> PSt*N h pS; 



********************************************************* 



X001-OOU33500 
XOO1-O0Q336C0 

SU0 1-OQQ3 A7. o g 

ioo 1*000 33800 
*********00033900 
X00l-00 03aQ0n 



*********00034l00 
X0O1-00O3420O 
__U___.Q , 34 3QQ, 



dii«a* ds»_lit m O"; x avoid flag bit errors 
end stream blank; 

X * * * * * * * * * ****.»**** * » * * * * *.._,*,.*_ t * * * * **************************** 

stream procedure clearca/nj; value n; 
%************************************************************** 

.BEGIN : 

di»*a; dsi»8 lit "0000"; sh*a; dsssn wds; 
end clear; 

X******** ******************************************* **** ***** ** 

stream procedure buildtimewordcwcako); 
x************************************************************** 

BEGIN _ __.._ _ _ 

Dp*W; 0Sl»4 LIT "0000"; !>I«»CAHDJ 
40CIF SC NEC *"" THEN ELSE JUMP OUT; Si:*Sl+l)J 
. ___.!■ __♦_. ________ " CHAR. 



X001-00Q34400 

XQ01-000345QO 

* ********QQQ 34ftO< 



1600 



XU01-00034700 
*********00034fl00 
__mL-__0.O3.49.Q 

XQ01-00035000 

XOQ1-000351OQ 
ii ____*_:.___Q QQil 52£_} 

X001-Q003S300 
*********Q003_400 

__iojL-aao_____.a.. 

X001-00035600 
X001-00035700 

xooi-onojiSeQo. 



24(iF sc » "i" then os:sset else usi«hesf.t; s.: = si + n; xooi-00035900 

END BUILD TIME WCRO; *00l-00036000 

X***** * *» ** * *** *************** ** *** *****»*************** *****«**********ouQ36^0 Q 



BOOLEAN STREAM PROCEDURE DOLLARCAJi XQOt-000 

BEGIN XGOl-OOQ 

_J_1.__.AJ _ IF ■_£__■ !lt?_lM£N_IALLll.«ii.JlQLLJLa.t.«lAl a L.iJ _ ._. ..001-000 

end dollar; 

x******************************************++****************** 

REAL STREAM PROCEDURE A DDRE SS, A)> „__ _ 

begin si»»a; "addresssssi; end; xaoi-ooo 

x******** ********************************************** *****************ooo 

B OLEAM _5. IRE A M PROCEDURE G£THQRQ( APTR, WORD ) ; XOOl-OOQ 



%Q0 
******* 

____£ 



i-ooo 
**ooo 

L-iLQO 



36200 
36300 
i6„_2__. 

36500 
36600 
16_7il.a. 



36800 
36900 
37000 



X************************************************************** 
X SCANS CARD IMAGE AT ADDRESS "aPTR" FOR ALPHA STRING 
JLRET.UHAS.-A_ VALU E OF "TRi JF"— 10 GE TW flHJ_-.A_JLJE_I_-Q£ B.LCXIB_ 



BEGIN LOCAL SV; LABEL SCN*EXIT; 

sp*aptr; si»«si+3i si»=sc; x starting address 

2_ 40( _ ._ ^ 

IF SciTLPHTTHEN "jUMP OUT 2 TO SCN; 
IF SC*LEFTARROW THEN X END OF RECORD MARKER 
BEGIN 



******* 
XOO 

X.QQ 

XOO 
XOO 

_L__> 



**000 

1-000 

1-Q.QO 
1-000 
1-000 

_______ 



37100 
372CC 
373 00 
37400 
37500 

37600 



XOO 
XOO 
XOO 



tally:*i; getwcrd 1- tally; jump out 2 tg txn; 
eno; 

SII»5I+1))| 



1-000 
1-000 
1-000 



37700 
37800 
3 7900 



S'cNY 

dh«woro; osj"LiT"c"; osi*chr; 

6C IF SC^ALPHA THEN DSl-CHR ELSE lS.slIT" "); 
63(IF SC-ALPHA THEN SI»«SI+1 ELSE JUMP OuT); 
EXIT! 

Syi*Sl; sh-loc sy; di:»aptr; dsj*wos; 



XOO 
XOO 
XOO 



1"0Q0 
1-000 

1-000 



XOO 
XOO 
XOO 

xoo 

XOO 

xoo 



1-000 
1-000 
1-000 
1-000 

1-000 

1-000 



38000 
38100 
382 00 



38300 
38400 
38500 
38600 
36700 
38800 



__ • 



-^ 



2t 



_l 

1 

I 5 ! 

'61 



9 

io[ 

II 
12 
13 
14 
15 
16 
17 
18 
lb 
120 

c- 



23 
24 



25 

26 

27 

2B 

29 

30 

31 

32 

33 

34 

3b 

36 

37 ~ 

38 

39 

40 

41 



43 
44 
45 
46 
47 
48 
49 
50 
51 



52 
53 
i4 

55 
56 

-- 



% scans card image at address "aptr" for quotation mark 

X-RJLT U B.N.S. A ... VAUlE- flF____i_E__ ___.. u NfiLUin.E_LE_.QuD.JiL 1 _ NOT present 

1 IRANRFFRS IIP Tfl «_M rUlU/>/.TrOc rfli I n_ ,K .r. ,, ,r, t. - ,■■, .-.,,.„ ., ^ „ 



END STREAM PROCEDURE GETwORD; S001-00038900 

************************************************************************00039000 
B_Q.OLEAN_._Sl.eEAM P H OXiLC.U.fiE.._iIl_.Qi_l_C_»j_i_I£ _ jk__jU -Q J Q_j_19 4 -Q- 

_**^********** ************************************************** ********nnQ39?Gn 
1 Sr_ NR r_Rn ,«,, f , _„„«_•_« .._._., --_ -..--.-.__ ..... *001-00039300 

__ft_0__)jQ________L 

*QQ1-0003950Q 
X001-00039600 
%001-0GQ397QQ 

_OG1-00039800 
XOOl-00039900 

jLaoj.r__i_.__jo.flo.. 

X001-0QO4010Q 
3G01-OQ040200 

____ii-__mia_.oii 



TRANSFERS UP TO "N" CHARACTERS FOlL.OW.Ng QUOTL TO ARRAY 
BEGIN LAPEL EXIT; 

S.I : .■ APT R ; D JJ = BJ_ D S ! *LI T " 0"J 

2(40( ~" " """ — ' """ " 

IF SC*LEFTARROW ThEN 

BEGIN 

tally 1*1* jump out 2 to exlt^ " "" " " 

eno; 

___.? _„ . _ ... xtul. % pic k up t he char a_c_t£ks at te.r t he quote 

BEGIN 

5I»»Sl+_; X SKIP OVER THE FIRST QUOTE 



Jf 



— __ ... .itc___.___as.___. .u_____aa 
jump out 2 to exit; 
end; 

S_L _._■ S J ♦__ u _ _.. . 

EXIT« 

UNQUOTE «* TALLY; 



L_.II.^_._XL__E_.I__X=£.ti_J.i . 



XQQl-00040400 
XQ01-OOQ40500 
.J_Qill___i3D_lQ6.£_a 
31001-00040700 
*G01-Q0040800 

___fl_u__o___j_i_a_u_ 



_E__CL __________ _?__QC___i__E_J_ld_______L 



XOOl-00041000 
%001*OOQ«1100 

~ _ • — — - — — ____ij_,ao.___i__ia. 

PROCEDURE ERRCN); VALUE N ; REAL N> XOOl-OOO.UOO 

-___..**___ * * * A* *_._ *itt_tl_i.il_ii_i.*__*.ti*ti_t*i _.* * .Jfc± * --AA-__-A.____A_JkA_.A_A____A_.aC___i.500 . 

%001-0004l600 
BAD DOLLAR CARD *QQ_-0G041700 



BEGIN 

IF N»0 THEN 



-BE-GIN 



OPTlONSBUlLT:iUSERPFvEsENT;=FALi>E; 
END BAD DOLLAR CARD; 
. J_m.L_L_.N___E___J__J_; 



CLEARCU5ER. 29); 



-4XUU-*0&£L4__-Q4- 



X001-OC041900 
S001-00042000 

_ooi-Q004?inn 



WRITECLlNEtDBLlM # A t *Y ) } 

END ERROR PROCEDURE; XQOl -00042300 

lLUU,<t WM *Ttu&_H/ XQOl-00042500 



X001-00042200 
X001-00042300 



procFdure ' wri t'euser; 

******************** ************************************************ ****00 42600 

-- _____.!- 000 4 2__3Q 

_001-0004280 - 
X001-00042900 
__0__1_ OOP 43000 



______ 

U S ER W R D I « T A bL E C U S R I N OX 3 :'*U S E* qGqU 
TABtECuSRlNDX+n.C33*15}«»uSERL0C; 
W ._ I TEJ USE R S C J_A B L E L C J , 3 * T AB L E [ * 3 > ; 

klnvTf- /liC-nrri. _.».-.. , __.' "I T -~_~ ; _T . 



n "rite c'u s ersTu sTr l c cfVToTu s_ r ["*!;* 

END WRITE USER; 

%*******- ***_**_* * * ***** ********** 



*00 1-0004 3 IOC 

„001-00043?00 

— - * ****** *********************************qo04330Q 

PROCEDURE BUILDFI.LE; iooT^OO^too 

X***** ************************** ************************nt*********#*#***0Q04 3500 
BEGIN X.Q01-000 43600 



FILE NEW DISK SERIAL . 20* 6003 ( 2* 30* 3b(jVsAV_~"V99 )1 
USERC13«sNEXT0PENI=30; 

.f_U...J_____MXI_L__uaE_lS __."____E___ __ 

DO BEGIN " ~' " 

WRlTECNEW,3o*USERt*3); CLEAR ( USER, 29 ) ; 

__.__)- -UNTIL USRlN_Xt-USRTNnX.U GTR 29: __ 



X001-00043700 
XOOi-00043800 
SQ0l-QO0 43qO_ 



X001-0O044000 

xooi*ooo«Aioo 

XQ01-000 44?OQ 



lock c new, saveT; 

END BUILDING NEW FILE; X001-0004440Q 

__1J_____J_*.*_ ** ****** **** **_*_* ********************************************^ o044»son 
'ROCEDURE SETnPTio„~s; _^r__-->_-A-r 74_- _ 



*001-00044300 
XOOI-0004440Q 



PROCEDURE "SET-OPT IONS* -"HlOO^OOO < f460 

****************************** ************* *****************************00044700 

BfLGJN. ■ it001*Q0044800 



< 



1 
2 
3 

4 
5 

6 
7 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 I 

21 

22 

23 I 

24 

25 

26 1 

27 

28 

29 K 

30 

31 

32 i 

33 

34 

35 i 

36 

37 

38 i 

39 

40 

42 
43 
44 
46 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



I 

i 



ft 
• 



._ 



I 10 

nil 

'l2| 
I'*," 



I7| 
H9' 

ft 



FOR i:=2>3>6,7,8 DC % PASSWORD* CHARGE/ PHCJNE, TlME,CUMp ILERS 

BEGIN 
.M A TCHC OPTION. SIIMJ E.]_S£ y$£_H.LQl = GP.II .QN.S C.I J ; _____ 

end for; 
matchcqptionsu], 0) else m0vec2-#qptiqnsu 3 >userc43 ); 4name 

yjsx exs _i_ _ j_i_v.kb __r__ 



4001-00044900 

X001-00045000 

_lMi.-QiJ0ii5i.QiL. 



~i«i_nvuriiuiiJi.Hjj» u^ cl«>_ nuviu'viriiuivoLHj jtu 

-_M.AIi.MaPI I Qm^^^^ .__ 

MATCHCOPTlUNSClOJfC) EL-E MOVE ( 1 * UPT IONS [ 10 _ ,U 
rmn srr noTrriMc; 



4QQ1< 
*00J- 

j___qjl! 



END SET OPTIONS; 
4********************* ***************************** ******* 

STREAM PROCEDURE SETBI TCBITNUM**-) ) J VALUE BITNUMi „_._,_ „_„„„„ 

»_,,__.___._._._._._._....___._...._, . ... '**************************************00045900 



SEKC10J); 4VRBWRD *001 

asooi _ . « 



00045200 
00045300 
00045 fl0n 
00U45500 
00045600 



4**** ***************** ************ 
BEJUJ-. ..UHUl__Ni 



1001-00045800 



SlJsUOc 8ITNUM; SU = Sl + 6; 
DItsWD; NC2CSKIP 32 OB)); *., 
. LND-ST R £ AM _PR0 C EDUPE SFTRITl 



DI» S LQ. n; oi:=di+?> dss*chR; 
skip bitnum db; ds:*set; 



4001*000-6000 



aoor 
xooi 

-001' 



'00046100 
00046200 
Q0Q463QQ. 



4***************************************************************,.*******Q()04640Q 

PRUCEDURE REAOUSER; 1001*00046500 

%************************** 

BEGIN LABEL REA0JN,6i\; 

NUT UPEN 



IF 



11001*00046500 

* + ...»»* *.».*. *..* »..*..* ******** ***************** ******no046<sno 

4001*00046700 



NEXTOPEN ■ THEN 4 FILE 

BELSIJN _ _ _ . 

READ(USERSCO]*5»Bt*3 ); 

nextopen i» sen; 

moj. _.._.. ._...._ _.,_ 

IF UNQUOTE. 7, APTR»USERCODE) THEN 

BEGIN 

E R.R C Q ) ; ERR C 21 i 31 HAJl Q QL L AR kARLU flUiH. E S. J-£-LuIREL). 

END 
ELSE 

__________ ... % GQT A LSFRr.HDF. 



JlEAQiJsU 



word »» usercode; usrindx:=-_-; 

tablel0c» = (cin0rd,c6:213+w0«d.l278213)h0d 29)+i> * scramble 

.1 _ 



4001-00046710 
10CH -0 QQ4 6720 
4001*00046730 
4001-00046740 

. JLQJ2i_! , ..OXli).i_.6I_iO. 
4001-000^6800 
*001-00046900 

__J4i_Ql-i_jQ_3.4__Qi_.QL 
4001*00047100 
4001-000472QQ 
1001*00047300 



READCUSERSCTA8LELOC3- 30, TABLEC*]); 
DO BEGIN 
USUI NDX»aUSRT (^DX4 2; 



2001 
X001 
4 00 1 



•00047400 
"00047500 
■00047600 



.IE... 
IF 



MATCH(TABlECUSRlN'DX-#wORD> USERPRtSENT I'TRlE* 
END UNTIL USERPRESENT UR USRINQX GTR 26; 
NO T USE R PR £ SFNT I H£N_» NOT IN T HIS B L_0 C_ _ 



XOO1-00047700 
4001-00047800 
4QQ1-00QJ___9--.Q. 



ALREADY PRESENT00048000 
X001-00048100 
*001-000 48?00 



4001-00048300 
4001*00048400 



TABLECn.C18!lb] NEQ THEN 4 LINK TQ NtXT SEGMENT 
BEGIN 
TA 
US« 

END; X001-00048700 

IF USER PRESENT T HEN USERLQC ,*T ABLE. USR I NHX + 1 3 . C 33 % 1 53 ELSE 400 1.-000 4.8.80 

JF"W llSrS. tnni«nnn.-_nn 



-GIN 4001*00048400 

„I_J-.__QC .A* -IABLUILJ 18.1.15 J ; % LOCATION UF LINKED SEGMENT4001 »00Q4850 

5RINDX »= -2; GO TO READIM* 4001-00048600 

J 0; -001-00048700 



OKI 



BEGIN 4 MUST BE NEW USES. 

ussiNDx »■ *i; i»»o; founoisfalse; 

DO IF F0UNDt«TABLE.I 3«0 THEN USR lNDXt*! _ 

UNTIL FOUND OR I s = I + 2 _TR 28; 
IF FOUND THEN 

BEGIN 

NEXTOPEN U(USERLOc'r*NEXTOPEN)+i; 

BLANKCUSERNAME'l); BLANKCPASSWORD- >; ' 

....._ USERt 293t«T ABLEL0C & USHlNOX . 18: 33 Hb3 ; 4 BAC K LINK 

END 
ELSE 

BEGIN I NC ROOM IN THIS bLDCK 
TABLEC13.C18I153 l-NEXTOPEN; 4 LINK 



4001*00048900 
4001*00049500 
4001-000 49600 
4001-00049700 
4001-00049800 
4001-00049900 



4001- 
40-01' 
4001' 



00050000 
00030100 
00050 ?00 

4001*00050300 

4001-00050400 

40Q1-0.0Q5U500 

SLOT 00050600 



TABLECl],tlBtl53l«NEXTOPEN; 4 LINK TU NEXT AVAILABLE SLOT 00050600 

WRlTE(USERStTABLELOc3t30»TABLE[*3); * REPLACE SCRAMBLE BLOCK00050700 

..Cl.EAR CTABl E.2931 TABLEC29 1 1 »*0&T ARLELOCf 18 I 33 1 1 5 . 1 4 RK LMK QO OSQflOQ 



li 



"¥H« 



-,r 



10 

I 11 

12 

13 
I M 

15 

16 
I 17 

18 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

36 

JS 

37 ~ 

ili 

19 

40 



43 

) 44 

45 

46 

I 47 

48 

49 

i SO 

51 

52 

53 

54 

55 

56 



IF 



TABLELOC 1= NEXTOPEN* UiKlNUX »= 0* 

NEXTQPEN J= NEXTOPtN + 1> % iNCKEMtM 

- WRIIEm5£RS.LULBLri fiC 3 LUuLLAhLLL*! li 

FOUND »* true; GO TO UK} 

end; 

-END NEW ai£ERl__.__ __ 

END IF WE HAD A USER CODE' 

USERPRESENT THEN READCUSERS[USERLnC]»30>UStRC*J); 



X001-0005090G 
FILE SI^E X001-0005100C 

ah.bxiil.xn r.ASF 0F„Lfl&aH_fljqflji.iuiQ 

X001-OQ051200 
XQQ1»00051300 

X001-00051500 
X001-OQ051600 

*001*00051800 
X001-00051900 

- - jtatu "»fK) (it T?eoo 

PROCEDURE REMOVEUSER; X001-00052200 

■X* *.»jL»-»^»jt» *j> ,fcftjt*.»Jrj*>.^ * + ****»**»»,i, »i»»»» + «** » + »no o^??OQ 

BEGIN X001-Q0052400 



0J5£HPJ£iiENT1.5J£.QJUiUl..Dfi_USiJiPJii.Si^ll^_ 
IF USERLOC LSS 30 THEN ERR(4); 
ALTERED »* ALTERED OH uSERPRESENT* 
£W0- BEAD. 4J-S£J3J 



BEGIN 

% ROUTINE FOR REMOVING USERCQOE FROM USERS/CANOE FILE 

-X-FJC P £LCI S_CARD. IJUfi£_Q£_lHE_£fla!LL_l_fl£MIlitE. "u SFflfflnr* 

REAL USRCODE,LASTUSERlNX,LAi)TABLuLOC; 

LABEL FOUNDIT*EXIT»READIn; 

FORMAT _ 

NOT I NF I LE { "REMOVE IGNORED j> USERCOOE ~i\OT " 
INVALIDLOCC'REMOVE IGNORED* INVALID 
.IN .VALI JJLUNK.C .JLREMQ.Ji£_ IG1U3REU £_ FILE 

IF UNQU0TEC7#APTR*USRCQDE) THEN 
BEGIN 

ERR12.); GQ TO £XJIi_* QUOTES HEQUIRfJ} AROUND PARAMETERS 

end; "~ — ' """ 



IN FILE")* 
RECORD ADDRESS")* 

-N.Q..1..P.R.QPI-R.LI.. LLtiK£J2."JX 



XQ01-00052500 

XQ01-00052700 
SOQ1-Q0052800 
X0Ql-QQQ.5_ < i&0..0-. 



TABLEL0cJ B {(USRcQCE,[6:2l]+USRc0QE,C27J2U) 
..R-EADINI. 



mUq 29) +i; 



... _„ READIN; X LINKED 
WHlTE(LINEtOBLJMO^AC*J); GO EXIT; 



READ(USERStTABLEL0C]*30»TABLEC*^' * GET IND£X SeqMeNT 

FOR USRINDX*»0 STEP 2 UNTIL 28 UU 

M A J C HJ I A BL E.XU.SR.1N DJU > U SRCOOE) GO TO JF Ojj N D I Tj 

IF CTABLEL0Cl»TABLECl] # tl8U5J) NEQ THEN GO 

WRITE<LINE,N0TINFILE); 

.ND1IL.__ __. 

USERLOC :* TABLECUSRlNDX+il.iJaiisi; 
IF USERLOC LSS 30 THEN 

-BE.G.I.W 

W R I T E ( L I N E M N V A L I DL C ) ; WR I f E < U N E t D 8 L V# Tq*~A , I ' * 1 ) f GO EX~IT 7 

end; 

IF .N£XTOPE.N£fl_lHE.N_*_F_J_RST jARfl* G£T FIL£ LENGTH 
BEGIN 



X001-OQ0530QQ 
X001-00053100 

X001-00053300 
X001-00053400 
X001"00Q5350g 
X0Q1-0Q053600 
1001-00053700 

-ajQ01»QnQ518-QjQ- 
XQ01-Q0053900 

xooi-00054000 



% USERS HECGHD LOCATION 



XQ01»0QQS4200 
XGOl-00054300 



X001-00U5450Q 
1001-00054600 
%Q01-Q0Q547.Q.a. 



X001' 

X001 

X001' 



NEXTOPENlsbt 13; 



'00054800 

'00054900 

00055000 

XOOl-00055100 

X001-00055200 

a;ooi-ooo55aoo 



X001-00055400 
X001-00055500 
XOQl -0005 5600 



READ(USERSC03*5*B[*]3; 

_ end.;_ 

IF USERLOC a NEXTOPEN-i THEN % THIS IS THE" L«sT RECORD 

BEGIN 
T A B_L_E,[ U SAINDXJ _t n_ J A B L E C U S R I N X * 1 3 t* o; 

WRITECUSERSCTABLELOC]* 30» 1 ABLtt*] )/ 

NEXTOPEN »» NEXTOPEN -U % DECREMENT RECORD COUNT 

Qfl.ua e x i t; 

END; 1001 •00056000 

READ(USERS£N E XTQPEN-1],30#USERC*3); % GET LAST H E CORo IN FILE X001-00Q56100 

-iF-JLOOLEANCUSERC Zg ],C 111]) THE N % LAST R£C Q_R IS A SCRAMBLE BLOC K 00056200 

BEGIN ~ ~ " " "" ^ 

IF Cn=USER[29], [185153) s THEN % IN'VALIU LINK 



X001-00055700 
X001-00U55800 
X001-000559 00 



JftfJjLUL 



EXIT; 

XQOl< 



X001-00056300 
XOOl-00056^00 
X001-00056S OO 



WRITE(LINE^INVALIDLINK); WRlTE( LINEC D8L J * 10* AC *J ) ; GO 

iyui»O0U!36 70 
TA BLECUSRlN D X3i a 0; T ABLECUSRlNOX-^13 . C 3 3U5J»*0; % REMOVE USERCOOE 00056800 



00056600 
00056700 



2< 
3 
4 
5< 

6 

7 

a< 

9 
10 

11 4 

12 

13 

14 I 

15 

IS 

17 i 

18 

19 

20 f 

21 

22 

23 | 

24 

25 

26 J 

27 

28 

29 % 

30 

31 

32 % 

33 

34 

35 % 

36 

37 

38 % 

39 

40 



42 

43 

44 

45 

46 

47 

48 

49 

50 I 

51 

52 

53 I 

54 

55 

56* 

5?, 



• 



• • 



i;. 

4 

5 



,8 

1 1l'l 



, tS | 

u| 

IS 
■7 
18 

22 

[23 

16 

£} 

I 29 

30 
31 

02 
33 

31 
3S| 
3(i 

mj" 

as; 

i 

p9 

|40 

k 

c 

|45 

P" 

48 
49 

50 
SI 
62 
Ii3 

l>4 
Mi 
56 



C 33 : lb j :*o; 



WRITECUSERS[TABLFL0C]»30*TABLtt*J)i -S RF.Pl.ACE SCRAMBLE bLQCK 
IF TABLEL0C=NtXT0PEN-l THEN * USER IS IN LAST BLOCK 

B£filN _ _ - 

user[usrindx]i»0; usermsr 1 ndx + 1 3 
enq; 

..K.. 1». -2.1 _ - _.._ _ - 

DO Kt=K+2 UNTIL USEKCK3 NE« OR K G TR 2>i> 
IF K GTR 28 THEN * E^PTY BlOCK 
BEGIN _... .. _... _... _ 

useRloc !■ c; nextopen j* imextopen -i> 

END 

WRlTE(USERStUSERL0C]*30#USERC*i); X MOVE LAST RECORD UP 
NEXTOPEN ** NEXTOPFJN - 1 8 18 DECREMENT FILE SUE 
READ(USERS[I]»30» TABLEC»]) ; * GET PREVIOUS SC RAMBLE B LOCK 



fcOOl 
*001 
_1XQ1. 
XOOI 
XOOI 

XOOI 
XOOI 

._*OJU.« 
XOOI' 
XOOI' 

._X_Q_Q_L' 
X001- 
XOOI' 

xooi- 



00056900 
000&7000 

0005.7 ioo 

00057200 
00057300 

0aO5.74.aa 

Q0CO750Q 
00057600 

■00057800 
-00057900 
-QQQ58QQQ 
-00058100 
•00058200 
- 00058300 



TABLEC13.C18U 
WRITECUSERSCI3 
END X IF. ...UL&I 

ELSE 

BEGIN X NOT A 

LAS.IUSERINX .} m 

LASTABLELOC »» 
IF LASTABLELOC 

BEGIN. 

WRlTECLlNE* 

end; 

TABLE [USR.lND.Xi 
IF LASTABLELOC 

BEGIN 

read(usersc 

end; 
tabueclastuseh 



53»=USERLOC; % NEW LCJCATlO 
»30*TABLEC*3); * REPLACE S 
REaaRB--L.S.-A.-.S_CSlMBl£ .BLOCK 

SCRAMBLE BLOCK 

. ..LS£& 1 29.3 .Ul JU 15 J JL_i. LilC-A I 
USER[293.t33U5j; X SCRAM 
s OR LASTUSEKINX GTR 28 

INVALIQLINIO; WHiTE(HNttD 

! = L lAU.LEi.UMl. N jj + .xIlUj ■ 
KEO TABLELQC THEN * D1FFE 

lTAbkEUl.ClA3g£l.A_BLXl*iii...A 
LASTABLELOC ]# 30/ TABLE t* J); 



N HOR LINKED BLOCK 
CRAMULE BLOCK 



%00i"00058400 
X001-00058500 

— - X 00 t - ao05B6 00 

X001-00058700 
X001-Q005880Q 

1 DA. it* icRAHsL-E- B 1. C K % 4-?0Q.fl.58.9-QD. 

BlE BLOCK LOCATION %001 -00059000 
THEN % INVALIO LINK X001-00059100 
AQfl±-flfli)£a2flO-. 

blj*3o*A[*]); go exit; 00059300 

X001-00059400 
15.1 11 .Qi-JL. RE-M Q..V E-LLSXR 1 Q.1-;.OQD.59-50O- 
RENT SCRAMBLE BLOCK XQ01-000596G0 

XQ01-00059700 
WRITE CURRENT BLOCK X001-QQ059800 



INX+1 J.t33tl5j:=USERLUC; % 



% BLOCK FOR LST 
NEW LOC. FOR 



RECRD 00059900 

X001-00060000 
LST. RECt 00060 100 



WR ITE (USERS [LASTABLELOC 1 >3Q#T A 
WRITE (USERS [USERLUC]#30,USERC* 

NEXT.QP.EjSL r.5__N£)Lia££JiL.--lJ_..i.il£C 

END/ X IF NOT SCRAMBLE BLOCK 

ALTERED *- TRUE; 
EXIT I _ ,.. 

ENO PROCEDURE REMOVEUSER; 

_efifi.C.fLDURjeL_LI!iKJi£i_ 



BLE£*3 

J); x 

R£MEN.I 



); x r 

MOVE U 
..FILE... 



EPLACE 

P LAST 
SllL ...... 



SCRAMBLE BLOCK 



RECORD 



%001 
..Jk.Q.0.1 
XOOI 
X001 
XOOI 



00060200 
-00060300 

•uaoii04ao 

-00000500 
-00060600 
-0000.0 700 



************************* 



X001 

**************** 



x************************************** ******************************** 



-00060800 
*00060900 



LINKI 



BEGIN LABEL LINK/ 
XROUTINE TO ESTABLISH. 
XROUTINE EXPECTS TC FI 
TABLELOC Is @i 
qO-BEGlN. 



LINKS 
NO CA 



£WQM_. 
RO IMA 



AiiERSz 
GE OF 



C.AN0E 
THE tO 



REcaRas 

RMI s l 



...TO. 
INK 



_1NDEX 



READ(USERS(TABLELUC 
USRINDX »* -2/ 

. _._D.a_B£5_lJi :- 



XOOI 

TAMkE- 

XOOI 

XOOI 

xnoi 



*OOOollOO 
-0C0612CC 

...O00A130G 

-00061400 
•00061500 
-0Q0A4-600- 



:=TABLELOC+l],30/TABL£[*3 )) 



XOOI 
XOOI 
XOOI 



IF TABLE[USRINDXI«USRINUX+21 NEQ 
IF USERLOC $» TABLEtUSRlNDX*lJ.[3 

BEJ3XN 



•00061700 
'00061800 
■00061il0a. 



THEN 

3:151 GEO 30 THEN 



IF 



READ(USERSCUSERLOC3»30#u 
USER[29] != TABLELOC <i 
MRlTECUSERStUSERLOt J#30/ 

end; 
end until usrindx » 28; 

<II" TABLEC11.C1BU53) NEQ 



XOOI- 
10.01' 
XQQ1' 



00062000 
00062100 
'.QaQii22ilfl. 



SER[*3 
5RIN0X 
USEKC* 



)/ 

Li6J 33*153; 

jj; 



THEN X LINKED SCRAMBLE BLOCK 



XOOI 
XOOI 
XOOI 
XOOI 
XOOI 
XOOI 



■00062300 
'00002400 
■00062500 
'00062600 
■00062700 
'0006280 



• • 



-I 
3 

4 
5 I 

-I 

i— 
''I 

*i 

I 

S 

tl) 

II 

12 

13 

14 

15 

16 

17 

18 

19 

2U 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 "" 

32 

33 

34 

.5 

_li 

.11 
39 
«> 
** 

43 "" 

44 

4B 

46 

47 

48 

49 

30 

51 

52 

53 

54 

55 

56 



BEGIN 
READCUSERSCIj>30,TABLEC*3>> 

- G.Q LlAlKi — .____ 

end; 
end until tableloc s 29; 
end procedure linkup' 



FILL CMPS[*] WITH 0* 

"BASIC "/"AL GOL "..'J'£.Q 1.Q.L ..." '"FQRThA N", "T SPOL ... " ' "Xk L GJ_L_ "J 

"*******" ,«#******» ,»♦***** * * •♦ ,♦»******** a w C U B L 6 a " ; 
FILL VRBS[*3 WITH 0, 
-kI§X__ -♦'.e.rRiiM _^!'.M¥L 



XOOl 

xooi- 

XQ Q 1- 

XOOl- 
XQ01 

_..JLMJLr. 

******** 

xooi- 

XOO l 



"MAKE 

"FILES 

"COPY 



_____ 



", ' -X _C_T£"/"D0 _ 
"#"COMPiLE'%"REMOvL "/"CHANGE "'"RENAME 
"/"CREATE "/"HELLO "/"TYPE "/"BYE 
"/" RESEQ "/"UELE TJ-_ ' V A P P E N_Q_ ","ADQ 



"#"LDAD 
"/"WHATS 
."f__IRG_, 

","SS "/"GUARD "/"LOCK ", "UNLOCK "/"TAPE ", 

"/"PUNCH "/"CHARGE ","SCHEDUL"/"STATUS "/"STOP "/ 

__* _UPD_I._. «jL»BE£LA.CE!UflUin -..____._. "/"R M ERG E "/ 

"/"REbET "/"M0NITUR»,"SSF ILL "/"EQUATE "/ 



xooi' 

XOOl' 



00062900 
00063000 
.00-063100 
00063200 
00063300 

_________ . 

00063500 
00063600 
OQ.06J700 
00063710 
0006380C 
__IM______ 



"TO 

"PRINT 

_!J. HE 

"DlSPLAY"/"SET 

"public "; 
jdst)j ? ; ... a : ■ a d d r e s s c a c ] ) / f irs tc a_h q; =tr u ej c l e a_r cbser/29); 



XOOl 
XOOl 
X.Q.QX 
xooi 

XOOl 
AOJQI. 



•000640CO 
-00064100 
■00064200 
-00064 300 
•00064400 
_______t__L 



NEXTl 

READ(CARD,10/At*3)C£0F]i A t 10 _ : aREALC NOT FALSE); X END RECQRD MA 

..APIA t____AXU. _ _..__ '. _ _ _. 

IF GETWQRDCAPTR/WORD) THEN GO TO NEXT; X BLANK CARD 
IF DOLLARCARDf=DOLLAR(A) THEN 
- .-BEGIN ..JLHOLLAJi C-A.RD.-fi.EAO,. ._. „ _ _ _..... 

IF USERPRESENT THEN WR1TEUSER 

ELSE 
IF QPT.LQNSBUlLI...JJl£!!L_Kaii£l3QxUa£JELtJlEXlJDJiill_ 

OPTIQNSBUIlTJ-USeRPRESeNT:=FaLSE> CLE ARC USER' 2^)/ 

USERCODE is « "; 

-..- -MATXMXW.QilDjllUSXS "-) 

BEGIN 

Readuser; setqptions; 

----- -END _ 

ELSE 

MATCHC WORD, "OPTIONS") GHTIONSBUILT 

ELSE... _ _.. . 

MATCHCWURD,"NEW 

ELSE 

MAICMCWQRD./."PR1.NT 

ELSE 
MATCH(WORD/"REMOVF 

EL._E 



00064600 
00064610 
JkSlQizSlJDMJLLQSL 



XOOl 
RK X001- 
_ -«001«_ 



00064800 
00064900 

ooii65oaa 



xooi- 
xooi- 
-X-Oiu- 
xooi- 
xooi- 

-X001_ 



xooi 

1001- 

x oo i. 



00065100 
00065200 
0.0065 300 
00065400 
00065500 
0-0X1-6-5.600 



00065700 
00065800 
£100-65.90.- 



:= TRUE 



") IF FIRSTCARD THEN BUILQFIlE ELSE ERRC1) 

"J. PRJ.NI „ 

") REMOVEUSfR 



XOOl 
XOOl* 
-X-OLOIjs 

XU01 

xooi- 

___fll 



X001- 

X001 

X0Q1- 



00066000 
00066100 

o.oo_6_ao-_ 

00066300 
00U66400 

aae.6A5iifl. 



00066600 
00066700 
00t)66800 



MATCH(WORD/"LINK ") LINKUP 
ELSE 
.IR.e.i.Q.)L_X BAQ_$_CAftPj. 



XGQ1- 

XOOt- 

J_2.QA_. 



00066900 
00067000 
__l_iZi__L 



FIRSTCARD != FALSE; 
END DOLLAR CARD 

XL_E 



XOOl* 

XOOl 

XOOl- 



00067200 
00067300 
00067400 



BEGIN X NOT A DOLLAR CARD* 
MATCHCWQRD."USE " ) X OPTIONAL WORD 
__J_E___ 



XOOl 

X001- 

XUQ1 



00067500 
00067600 
000 67700 . 



__ 



if getwordcaptr/wqrd) then go to next; 
end; 

MaTC H(WORD,"PAS SWCR") IF UNQu OTE(7 /APTR»PaSSWO RQ) THEN EHRC2) 
ELSE ELSE 

MATCH(WQRD#"NAME ") IF UNUUOTEC 15/ APTR/USERN AME) THEN ERRC2 
ELSE ELSE _ 



X001-00067800 
X001-00067900 
X001> 00 068000 



X001-00068100 
X001-OOU68200 
X " 0006 830 
XQ01-OOC6840~o' 
) X " 00068500 
X0Q1-0Q068600 



22 

{25| 
.6. 
27 



28 
29 

30 

R 

32 

f«__ 

I'M 

35 

■)(>) 

371" 

3d' 



MATCh(WORD#"TlME ") 0U I LOT I MEWfjKD C T I M£wURD# A ) 
ELSE 

MATCHCWURD, "CHARGE "J IF - UN©UUTE(7»APrR>ChARGEW0RD) THEN ERRC2 

ELSE ELSE 

MATCH(WQRD* M REQUEST") CHARGEWORD 1= 

EL.&E .... _ _. 

MATCH<WORD>"NO ") CHARGEWORD » « ""l " 
ELSE 

MATCH(WQRD*"LANG.UA6". - 

BEGIN 
COMPILERS! 

If 4£lHMfl.UEI^J!mani_lhLN...fiiLJL£LA£XlJ i_£AU_fl£_J£XUjaD 

MATCH(W0RD*"N0NE' " ) COMPI LEkwORD := ELSE 
BEGIN 

- 1 SB. -.L^.L_.SJ.L^ 

MATCH(WORO#CMPStl] ) 
BEGIN 
S.E.TBlTJ.I#.tQMp.i.L£8hQfl.DJ.; _ 

go to compilers/ 

end; 

errc4.j 6q 10 n.lxlx.x n.uj. .cu.mf.iler. .n.am.e _ - _._ 

end; * if a compiler name 

END X IF "LANGUAGE" 

MATCH(WORD*"PHONE ") IF UfjOUOl E C f» APT R, PNONEWORQ ) ThEN ERKC2) 
ELSE ELSE 

MATCH.(WQHD». H VERBS . " X 

BEGIN 
VEHBSJ 

Lt_M.I.WlRll£.l.P.iaAJifl51Ll_JLH£JiLAILJ:D_NEJLr.i __. ...__ 

MATCH(WORD#"NONE ") CLE AR ( VfcKBwORD* 1 ) ELSE 

BEGIN 

„..F.QR^lX?.l_^I£P„..i..„UJlIli^J^yMJJ£.l£jifi.3 u£. 

MATCH(W0RD»VRBSU3 ) 
BEGIN 

SElBlTLL#.VXRBHflfiD4i. - - - - - - — 

GO to verbs; 
end; 

. E RR C 5 > ;. « NOT __£R B ,Mi±L JLQ 7_g .. J_E *j_J _. 

END) X IF A VERB NAME 
END X IF VERBS 

ELSE _ _._■ _ ._ _ _ _ 

ERR(3); X UNKNOWN OPTION 
END NOT DOLLAR CARD; 

..go jo. nexi; _ ...... _ _... 

EOF! 

IF USERPRESENT THEN WRlTEUSER; % WRITE REMAINING SEGMENTS 

_ I F ALT E R E p _ T H E N _%_ \J_ _P DAJE R E CO RD .. . COUN T A ND ALT ER A_TION_ D ATE 

BEGIN 

READ(USERSC0]#29,USERC*]); * GET SEGMENT *ERO 

usrR.n »« nextopen; _ _ _ 



1001-00068700 

X001-00068800 
) X " 00068900 

*QOl-66069OO0 
1001-00069100 
..AflOi.-QQ0.69.2QQ.. 
XG01-000693CO 
*001-000o9-|00 

-X-GJlli_QQQ.&9 500 

X001-00069600 
JiOOl-00069700 

.. i QQi»on U69flon 

X001-00069900 
X0Q1-Q0070000 

■jmniroo oT JU-Qj. 

X001-00070200 

X001-00070300 

liiQA.-..QQQ 70 400 

X001-000/0500 
X001-00070600 

.-.xooi-.Qgg.yu70.Q-. 

1001-00070800 
X001-00070900 

- X.0-0-t9-Q-aO-Zl4JQ 

x " 000/1100 

*001-0C071200 
.AO.Ql-Q.QO.ZliQO 

X001-0007U00 
X001-00071500 

._..JifiQl_-0.0_QZI6Q.a_. 
X001-00071700 
X001-00071800 

X-QO 1-0007-1.-90.0- - 

X0O1-00072O00 
X001-00072100 

-X-QQ1- 00.0-72200 

XOOl-00072300 
*OUI-QC072-|00 
XO Ol-000/2500 
XUO 1-00072600 
X001-00072700 

JLQQ.L-Q-Qfl-_2fiQ.Q_. 

1001-00072900 
X001-000/3000 
..J4Q01..-0QO 1 11.0.0 
XOO1-00073200 
X001-00073300 
XOOl-00073000 



USERC23S«TIME(5)i 

WR _TE (USERS C03>30> USER [*J>; 

CLn SECU SBRS»SAVE); 



X001-00073500 

1001-00073600 

1001-000/370 
X001-00073800 
X001-00073900 
X001-00074000 



END; X IF ALTERED 
END USER, 
ENU;f,NQ» LAST CARD UN OCRDING 1 A^E 



XQ01-0007_nOQ 

1001-000/4200 
99VV9999 



#/ f 



w 



LABEL OOOOOO0OOPR1MEH0O17510OCC LX OB JLCT/Rt AUjK IlE SOURCEF IlE«SYmBUl/US£R;EnD* 




m • 



